home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / gear / for_cd / meeko / program.txt < prev    next >
Text File  |  1994-01-07  |  806b  |  27 lines
  1. CLEAR ,,,10000
  2. DIM CARA%(4500)
  3. A1$=GETS$("systext",1)
  4. A2$=GETS$("systext",2)
  5. A3$=GETS$("systext",3)
  6. CLRF "systext"
  7. GEAR LOAD "イメージ1","B:主人公.TIF"
  8. VIEW "イメージ1"
  9. GET@A(223,100)-(337,238),CARA%
  10. SAVE@ "CARACTER.ABC",CARA%
  11. MOUSE 0
  12. MOUSE 1,280,169,0
  13. FLAG=-1
  14. WHILE FLAG
  15. CX=MOUSE(0):CY=MOUSE(1)
  16. PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA%
  17. IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0
  18. IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0
  19. IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0
  20. IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0
  21. WEND
  22. VIEW END
  23. PUTS "systext",A2$,2
  24. PUTS "systext",A3$,3
  25. EFFECT VERTICAL(OPEN)
  26. GO "ページ2/音楽1"
  27.